From 5886710f96107e5a1f9b67171799d475d50ca347 Mon Sep 17 00:00:00 2001
From: John Paul Wallington <jpw@pobox.com>
Date: Tue, 6 Jul 2004 05:07:20 +0000
Subject: [PATCH] (Fclear_string): Signal an error if STRING is not a string.

---
 src/fns.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/fns.c b/src/fns.c
index 693f3eaaa93..cbd0dc91d2b 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -2370,6 +2370,7 @@ This makes STRING unibyte and may change its length.  */)
      (string)
      Lisp_Object string;
 {
+  CHECK_STRING (string);
   int len = SBYTES (string);
   bzero (SDATA (string), len);
   STRING_SET_CHARS (string, len);
-- 
2.30.2